(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     26469,        630]
NotebookOptionsPosition[     24539,        586]
NotebookOutlinePosition[     24894,        602]
CellTagsIndexPosition[     24851,        599]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:7591\:95ee", "Title",
 CellChangeTimes->{{3.7824920069322577`*^9, 
  3.7824920121263666`*^9}},ExpressionUUID->"5705c55a-b161-425d-bea9-\
d9ea0a541573"],

Cell[CellGroupData[{

Cell["\:6211\:6709\:5982\:4e0b\:5f0f\:5b50\:ff1a", "Section",
 CellChangeTimes->{{3.782491508042364*^9, 
  3.782491524329188*^9}},ExpressionUUID->"0520adad-bcc3-4907-a4ee-\
926adbdd185b"],

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5.5701909777388916`*^10", "+", 
        RowBox[{"1.7406846805434036`*^9", " ", "RA"}], "-", 
        RowBox[{"415.0115681990155`", " ", 
         SuperscriptBox["RA", "4"]}], "+", 
        RowBox[{
         SuperscriptBox["f", "8"], " ", 
         RowBox[{"(", 
          RowBox[{"1.8725923660376624`*^-6", "+", 
           RowBox[{"3.745184732075326`*^-8", " ", "RA"}], "+", 
           RowBox[{"2.4967898213835506`*^-10", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"5.548421825296779`*^-13", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"2.284181051667265`*^19", "+", 
           RowBox[{"3.426271577500897`*^17", " ", "RA"}], "+", 
           RowBox[{"1.7131357887504488`*^15", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"2.8552263145840815`*^12", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "3"], " ", 
         RowBox[{"(", 
          RowBox[{"3.426271577500896`*^21", "+", 
           RowBox[{"6.852543155001793`*^19", " ", "RA"}], "+", 
           RowBox[{"4.282839471876121`*^17", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"8.565678943752245`*^14", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.713135788750449`*^23", "+", 
           RowBox[{"4.282839471876122`*^21", " ", "RA"}], "+", 
           RowBox[{"3.426271577500898`*^19", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"8.565678943752248`*^16", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"2.855226314584081`*^24", "+", 
           RowBox[{"8.565678943752246`*^22", " ", "RA"}], "+", 
           RowBox[{"8.565678943752255`*^20", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"2.8552263145840763`*^18", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"12.969111506219235`", " ", 
            SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "6"], " ", 
         RowBox[{"(", 
          RowBox[{"1.4974550451261067`*^-13", "+", 
           RowBox[{"1.5811106250545202`", " ", "RA"}], "+", 
           RowBox[{"0.026351843750908672`", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"0.00010540737500363457`", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"4.235164736271502`*^-22", " ", 
            SuperscriptBox["RA", "4"]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"0.09486663750327091`", "\[VeryThinSpace]", "+", 
              RowBox[{"0.0018973327500654187`", " ", "RA"}], "+", 
              RowBox[{"0.000012648885000436123`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"2.81086333343025`*^-8", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{"3.2396863957055188`*^-15", "+", 
              RowBox[{"0.0632444250021807`", " ", "RA"}], "+", 
              RowBox[{"0.0008432590000290762`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"2.8108633334302537`*^-6", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"3.308722450212111`*^-24", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "0.00002473661710018012`"}], "-", 
           RowBox[{"1.3350000000000116`*^8", " ", "RA"}], "-", 
           RowBox[{"2.6700000000000154`*^6", " ", 
            SuperscriptBox["RA", "2"]}], "-", 
           RowBox[{"13350.000000000102`", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"1.8430215940013618`*^-13", " ", 
            SuperscriptBox["RA", "4"]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"1201.5000000000005`", "\[VeryThinSpace]", "+", 
              RowBox[{"24.030000000000005`", " ", "RA"}], "+", 
              RowBox[{"0.16020000000000006`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"0.0003560000000000001`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"8.009999999999985`*^6", "+", 
              RowBox[{"133500.0000000001`", " ", "RA"}], "+", 
              RowBox[{"1335.000000000002`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"5.340000000000035`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"4.718135280643486`*^-11", "+", 
              RowBox[{"1602.000000000005`", " ", "RA"}], "+", 
              RowBox[{"21.36000000000004`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"0.07119999999999997`", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"2.636463538171809`*^-19", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{"4.0049999999999964`*^8", "+", 
              RowBox[{"4.0050000000000163`*^6", " ", "RA"}], "-", 
              RowBox[{"3.774508224514789`*^-10", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"5.759442481254256`*^-15", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.1271981680210108`*^18"}], "-", 
           RowBox[{"3.381594504063029`*^16", " ", "RA"}], "-", 
           RowBox[{"3.381594504063032`*^14", " ", 
            SuperscriptBox["RA", "2"]}], "-", 
           RowBox[{"1.1271981680210046`*^12", " ", 
            SuperscriptBox["RA", "3"]}], "-", 
           RowBox[{"0.00001236830855009006`", " ", 
            SuperscriptBox["RA", "4"]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"3.381594504063023`*^11", "+", 
              RowBox[{"5.974150290511341`*^9", " ", "RA"}], "+", 
              RowBox[{"3.494314320865125`*^7", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"67631.89008126047`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3.3815945040630336`*^16"}], "-", 
              RowBox[{"3.381594504063072`*^14", " ", "RA"}], "+", 
              RowBox[{"3.3815945040630366`*^12", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"3.3815945040630238`*^10", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"2.8179954200525184`*^13", "+", 
              RowBox[{"8.679425893761765`*^11", " ", "RA"}], "+", 
              RowBox[{"7.21406827533445`*^9", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"1.8035170688336138`*^7", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"5.897669100804358`*^-12", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"3.3815945040629994`*^14", "+", 
              RowBox[{"3.2688746872609254`*^13", " ", "RA"}], "+", 
              RowBox[{"4.5087926720840375`*^11", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"1.5780774352294102`*^9", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"4.529409869417747`*^-9", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
      " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "f", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", 
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["RA", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4980.138818388186`"}], "-", 
           RowBox[{"12.969111506219235`", " ", "RA"}], "-", 
           RowBox[{"0.025330295910584444`", " ", 
            SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"7.175966411386884`*^14", "+", 
           RowBox[{"1.4351932822773771`*^13", " ", "RA"}], "+", 
           RowBox[{"8.969958014233609`*^10", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"1.7939916028467217`*^8", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"3.587983205693443`*^20", "+", 
           RowBox[{"1.0763949617080328`*^19", " ", "RA"}], "+", 
           RowBox[{"1.076394961708032`*^17", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"3.587983205693442`*^14", " ", 
            SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "3"], " ", 
         RowBox[{"(", 
          RowBox[{"2.152789923416066`*^17", "+", 
           RowBox[{"4.664378167401476`*^15", " ", "RA"}], "+", 
           RowBox[{"3.229184885124099`*^13", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"7.17596641138689`*^10", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"6.18415427504503`*^-8", " ", 
            SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.6145924425620492`*^19", "+", 
           RowBox[{"4.126180686547458`*^17", " ", "RA"}], "+", 
           RowBox[{"3.4085840454087705`*^15", " ", 
            SuperscriptBox["RA", "2"]}], "+", 
           RowBox[{"8.969958014233611`*^12", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"9.276231412567545`*^-6", " ", 
            SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.5164157155254288`*^6"}], "-", 
           RowBox[{"92268.57623593249`", " ", "RA"}], "-", 
           RowBox[{"1090.4468100610186`", " ", 
            SuperscriptBox["RA", "2"]}], "-", 
           RowBox[{"4.194026192542382`", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"1.1248911096199718`*^-17", " ", 
            SuperscriptBox["RA", "4"]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4.718135280643486`*^-11"}], "-", 
              RowBox[{"671.0441908067819`", " ", "RA"}], "-", 
              RowBox[{"11.184069846779668`", " ", 
               SuperscriptBox["RA", "2"]}], "-", 
              RowBox[{"0.044736279387118716`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "503.2831431050855`"}], "-", 
              RowBox[{"11.743273339118646`", " ", "RA"}], "-", 
              RowBox[{"0.08947255877423725`", " ", 
               SuperscriptBox["RA", "2"]}], "-", 
              RowBox[{"0.00022368139693559338`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "9.428728359360012`*^-16"}], "-", 
              RowBox[{"1.9937831843230028`*^-17", " ", "RA"}], "-", 
              RowBox[{"1.4012137978493353`*^-19", " ", 
               SuperscriptBox["RA", "2"]}], "-", 
              RowBox[{"3.2738640136666714`*^-22", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "0.029803233145104184`"}], "-", 
           RowBox[{"0.0006954087733857642`", " ", "RA"}], "-", 
           RowBox[{"5.298352559129625`*^-6", " ", 
            SuperscriptBox["RA", "2"]}], "-", 
           RowBox[{"1.3245881397824078`*^-8", " ", 
            SuperscriptBox["RA", "3"]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3.722312756488625`*^-20"}], "-", 
              RowBox[{"7.871140516324904`*^-22", " ", "RA"}], "-", 
              RowBox[{"5.531770346448373`*^-24", " ", 
               SuperscriptBox["RA", "2"]}], "-", 
              RowBox[{"1.2924697071141057`*^-26", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.124718490276805`*^14"}], "-", 
           RowBox[{"6.374155470830421`*^12", " ", "RA"}], "-", 
           RowBox[{"6.374155470830418`*^10", " ", 
            SuperscriptBox["RA", "2"]}], "-", 
           RowBox[{"2.1247184902768105`*^8", " ", 
            SuperscriptBox["RA", "3"]}], "-", 
           RowBox[{"7.549016449029578`*^-10", " ", 
            SuperscriptBox["RA", "4"]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"6.374155470830405`*^6", "+", 
              RowBox[{"148730.29431937617`", " ", "RA"}], "+", 
              RowBox[{"1133.1831948142951`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"2.832957987035738`", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4.2494369805536133`*^12"}], "-", 
              RowBox[{"5.665915974071482`*^10", " ", "RA"}], "+", 
              RowBox[{"1.4164789935178608`*^8", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"2.832957987035729`*^6", " ", 
               SuperscriptBox["RA", "3"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"1.699774792221442`*^9", "+", 
              RowBox[{"4.5327327792571776`*^7", " ", "RA"}], "+", 
              RowBox[{"396614.1181850031`", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"1133.1831948142951`", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"9.765625000000002`*^-16", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"2.1247184902767952`*^10", "+", 
              RowBox[{"2.195542439952694`*^9", " ", "RA"}], "+", 
              RowBox[{"3.257901685091096`*^7", " ", 
               SuperscriptBox["RA", "2"]}], "+", 
              RowBox[{"127483.10941660816`", " ", 
               SuperscriptBox["RA", "3"]}], "+", 
              RowBox[{"1.8430215940013618`*^-13", " ", 
               SuperscriptBox["RA", "4"]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
      " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "f", " ", "\[Pi]", " ", "t"}], "]"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"10000.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"100.`", "\[VeryThinSpace]", "+", 
           RowBox[{"1.`", " ", "RA"}]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["f", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"1.4026909108896347`*^-8", "+", 
          RowBox[{"1.8702545478528466`*^-10", " ", "RA"}], "+", 
          RowBox[{"6.234181826176156`*^-13", " ", 
           SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"40000.`", "\[VeryThinSpace]", "+", 
          RowBox[{"400.`", " ", "RA"}], "+", 
          SuperscriptBox["RA", "2"]}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"4.`*^6", "+", 
          RowBox[{"60000.`", " ", "RA"}], "+", 
          RowBox[{"200.`", " ", 
           SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["f", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.1843525281307234`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.031582734083485955`", " ", "RA"}], "+", 
          RowBox[{"0.00019739208802178716`", " ", 
           SuperscriptBox["RA", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"0.0003553057584392169`", "\[VeryThinSpace]", "+", 
             RowBox[{"4.737410112522891`*^-6", " ", "RA"}], "+", 
             RowBox[{"1.5791367041742975`*^-8", " ", 
              SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{"0.023687050562614463`", "\[VeryThinSpace]", "+", 
             RowBox[{"0.0006316546816697189`", " ", "RA"}], "+", 
             RowBox[{"3.1582734083485947`*^-6", " ", 
              SuperscriptBox["RA", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1.604059727294428`*^20", "+", 
       RowBox[{"3.208119454588856`*^18", " ", "RA"}], "+", 
       RowBox[{"1.6040597272944274`*^16", " ", 
        SuperscriptBox["RA", "2"]}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["f", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"150.`", "\[VeryThinSpace]", "+", 
           RowBox[{"1.`", " ", "RA"}]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"6.4162389091777096`*^16", "+", 
          RowBox[{"6.41623890917771`*^14", " ", "RA"}], "+", 
          RowBox[{"1.6040597272944275`*^12", " ", 
           SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"6.416238909177712`*^18", "+", 
          RowBox[{"9.624358363766565`*^16", " ", "RA"}], "+", 
          RowBox[{"3.208119454588855`*^14", " ", 
           SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["f", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.8997721932938325`*^12", "+", 
          RowBox[{"5.066059182116886`*^10", " ", "RA"}], "+", 
          RowBox[{"3.1662869888230556`*^8", " ", 
           SuperscriptBox["RA", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"5.6993165798815`*^8", "+", 
             RowBox[{"7.599088773175334`*^6", " ", "RA"}], "+", 
             RowBox[{"25330.295910584446`", " ", 
              SuperscriptBox["RA", "2"]}]}], ")"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{"3.799544386587664`*^10", "+", 
             RowBox[{"1.0132118364233776`*^9", " ", "RA"}], "+", 
             RowBox[{"5.066059182116888`*^6", " ", 
              SuperscriptBox["RA", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7824915369649086`*^9, 3.7824915674728336`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"615bb10c-5d6c-4479-9687-5df7686499f4"],

Cell[CellGroupData[{

Cell["\:7136\:540e\:6211\:5bf9\:5b83\:6c42\:79ef\:5206\:ff0c\:7ed3\:679c\:662f\
0\:ff1a", "Subsubsection",
 CellChangeTimes->{{3.7824916042125845`*^9, 
  3.7824916293105087`*^9}},ExpressionUUID->"f962b16c-da47-40ec-ab2e-\
a7abf2939815"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"a", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"7006ca48-112d-4a96-b2fd-8109f5ecaa72"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.782491587971017*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"7cf0e902-ef09-471a-a2db-0dcefdaa4bff"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:7136\:800c\:5947\:602a\:7684\:662f\:ff0c\:65e0\:8bba\:79ef\:5206\:9650\:53d6\
\:591a\:5c11\:ff0c\:79ef\:5206\:7ed3\:679c\:603b\:662f0.\:8fd9\:4e0d\:5c31\
\:610f\:5473\:7740a\:6052\:7b49\:4e8e0\:5417\:ff1f\:5e26\:7740\:8fd9\:4e2a\
\:731c\:6d4b\:ff0c\:6211\:4eec\:518d\:7ed9\:5f0f\:5b50\:4e2d\:7684RA\:ff0cf\
\:ff0cr\:8d4b\:503c\:ff1a\
\>", "Subsubsection",
 CellChangeTimes->{{3.7824916432063484`*^9, 
  3.7824918022023497`*^9}},ExpressionUUID->"8b23a4d2-7402-4ff4-983d-\
c0ba31fbf541"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RA", "=", "1"}], ";", 
  RowBox[{"f", "=", "1"}], ";", 
  RowBox[{"r", "=", "1"}]}]], "Input",
 CellChangeTimes->{{3.782491808675006*^9, 3.782491824003016*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"64ee8d7c-2d13-4d2e-8668-452f7c4013c2"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7824918252217555`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"b251aea7-8d78-493f-bcf5-a99d6c90b133"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:518d\:6b21\:79ef\:5206\:ff0c\:5f97\:5230\:7ed3\:679c\:662f\:ff1a", \
"Subsubsection",
 CellChangeTimes->{{3.7824918328443723`*^9, 
  3.782491847683545*^9}},ExpressionUUID->"0abf6c1e-a540-490a-99a0-\
e91e8183f86d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"a", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7824918536625566`*^9, 3.7824918605761075`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"9f9329d3-66bd-4f8c-890c-914be5b711ba"],

Cell[BoxData["1.4929693376209515`*^-8"], "Output",
 CellChangeTimes->{3.782491861833706*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"2af66c10-bdd6-4b1b-ae97-45ac8ef5630c"]
}, Open  ]]
}, Open  ]],

Cell["\:8fd9\:56de\:79ef\:5206\:7ed3\:679c\:5c31\:4e0d\:662f0\:4e86\:3002", \
"Subsubsection",
 CellChangeTimes->{{3.782491867573356*^9, 
  3.7824918847953014`*^9}},ExpressionUUID->"4a129d5f-c0e3-42a0-ad52-\
e228d0128b3e"],

Cell["\:6211\:539f\:672c\:662f\:60f3\:6c42\:51fa\:79ef\:5206\:7684\:7b26\:53f7\
\:8868\:8fbe\:5f0f\:7684\:ff0c\:4f46\:662f\:5b83\:53ea\:6709\:5728\:7ed9\:5176\
\:4e2d\:7684\:53d8\:91cf\:8d4b\:503c\:7684\:60c5\:51b5\:4e0b\:624d\:4f1a\:6709\
\:7ed3\:679c\:3002", "Subsubsection",
 CellChangeTimes->{{3.782491899082096*^9, 
  3.7824919700401583`*^9}},ExpressionUUID->"23e6977a-43aa-483d-97f7-\
aba42a18abb8"]
}, Open  ]]
}, Open  ]],

Cell["\:8fd9\:662f\:600e\:4e48\:56de\:4e8b\:5440\[Ellipsis]\[Ellipsis]\:54ed\
\:8fbd\[Ellipsis]\[Ellipsis]", "Title",
 CellChangeTimes->{{3.7824919749929132`*^9, 
  3.7824919923047357`*^9}},ExpressionUUID->"bbbc083c-81e1-45d8-af2d-\
77e71603ce25"]
},
WindowSize->{1264, 637},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 159, 3, 96, "Title",ExpressionUUID->"5705c55a-b161-425d-bea9-d9ea0a541573"],
Cell[CellGroupData[{
Cell[764, 29, 187, 3, 67, "Section",ExpressionUUID->"0520adad-bcc3-4907-a4ee-926adbdd185b"],
Cell[954, 34, 20186, 450, 1143, "Input",ExpressionUUID->"615bb10c-5d6c-4479-9687-5df7686499f4"],
Cell[CellGroupData[{
Cell[21165, 488, 236, 4, 44, "Subsubsection",ExpressionUUID->"f962b16c-da47-40ec-ab2e-a7abf2939815"],
Cell[CellGroupData[{
Cell[21426, 496, 246, 6, 45, "Input",ExpressionUUID->"7006ca48-112d-4a96-b2fd-8109f5ecaa72"],
Cell[21675, 504, 148, 2, 32, "Output",ExpressionUUID->"7cf0e902-ef09-471a-a2db-0dcefdaa4bff"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21872, 512, 497, 9, 44, "Subsubsection",ExpressionUUID->"8b23a4d2-7402-4ff4-983d-c0ba31fbf541"],
Cell[CellGroupData[{
Cell[22394, 525, 273, 6, 28, "Input",ExpressionUUID->"64ee8d7c-2d13-4d2e-8668-452f7c4013c2"],
Cell[22670, 533, 150, 2, 32, "Output",ExpressionUUID->"b251aea7-8d78-493f-bcf5-a99d6c90b133"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22869, 541, 221, 4, 44, "Subsubsection",ExpressionUUID->"0abf6c1e-a540-490a-99a0-e91e8183f86d"],
Cell[CellGroupData[{
Cell[23115, 549, 316, 7, 45, "Input",ExpressionUUID->"9f9329d3-66bd-4f8c-890c-914be5b711ba"],
Cell[23434, 558, 170, 2, 32, "Output",ExpressionUUID->"2af66c10-bdd6-4b1b-ae97-45ac8ef5630c"]
}, Open  ]]
}, Open  ]],
Cell[23631, 564, 222, 4, 44, "Subsubsection",ExpressionUUID->"4a129d5f-c0e3-42a0-ad52-e228d0128b3e"],
Cell[23856, 570, 405, 6, 36, "Subsubsection",ExpressionUUID->"23e6977a-43aa-483d-97f7-aba42a18abb8"]
}, Open  ]]
}, Open  ]],
Cell[24288, 580, 247, 4, 96, "Title",ExpressionUUID->"bbbc083c-81e1-45d8-af2d-77e71603ce25"]
}
]
*)

(* End of internal cache information *)

